home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / gamesa / frmheadt.frm (.txt) < prev    next >
Visual Basic Form  |  1999-08-01  |  2KB  |  69 lines
  1. VERSION 5.00
  2. Begin VB.Form frmHeadTail 
  3.    BorderStyle     =   3  'Fixed Dialog
  4.    Caption         =   "Toss"
  5.    ClientHeight    =   1305
  6.    ClientLeft      =   45
  7.    ClientTop       =   330
  8.    ClientWidth     =   4140
  9.    Icon            =   "frmHeadTail.frx":0000
  10.    LinkTopic       =   "Form1"
  11.    MaxButton       =   0   'False
  12.    MinButton       =   0   'False
  13.    Moveable        =   0   'False
  14.    ScaleHeight     =   1305
  15.    ScaleWidth      =   4140
  16.    ShowInTaskbar   =   0   'False
  17.    StartUpPosition =   2  'CenterScreen
  18.    Begin VB.CommandButton cmdTail 
  19.       Caption         =   "&Tail"
  20.       Height          =   495
  21.       Left            =   2603
  22.       TabIndex        =   1
  23.       Top             =   690
  24.       Width           =   1215
  25.    End
  26.    Begin VB.CommandButton cmdHead 
  27.       Caption         =   "&Head"
  28.       Default         =   -1  'True
  29.       Height          =   495
  30.       Left            =   323
  31.       TabIndex        =   0
  32.       Top             =   675
  33.       Width           =   1215
  34.    End
  35.    Begin VB.Label Label1 
  36.       AutoSize        =   -1  'True
  37.       Caption         =   "Head or Tail ?"
  38.       BeginProperty Font 
  39.          Name            =   "MS Sans Serif"
  40.          Size            =   13.5
  41.          Charset         =   0
  42.          Weight          =   700
  43.          Underline       =   0   'False
  44.          Italic          =   0   'False
  45.          Strikethrough   =   0   'False
  46.       EndProperty
  47.       Height          =   360
  48.       Left            =   1163
  49.       TabIndex        =   2
  50.       Top             =   120
  51.       Width           =   1995
  52.    End
  53. Attribute VB_Name = "frmHeadTail"
  54. Attribute VB_GlobalNameSpace = False
  55. Attribute VB_Creatable = False
  56. Attribute VB_PredeclaredId = True
  57. Attribute VB_Exposed = False
  58. Option Explicit
  59. Private Sub cmdHead_Click()
  60. HeadTail = 0
  61. Unload frmHeadTail
  62. frmToss.Show 1
  63. End Sub
  64. Private Sub cmdTail_Click()
  65. HeadTail = 1
  66. Unload frmHeadTail
  67. frmToss.Show 1
  68. End Sub
  69.